home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 013 / mouse.bas < prev    next >
BASIC Source File  |  1995-03-17  |  137b  |  8 lines
  1. 4     scnclr
  2. 5     pena 2
  3. 6     peno 1
  4. 10    ask mouse x%, y%, b%
  5. 15    if b% = 0 goto 10
  6. 20    box(x%-5,y%-5;x%+5,y%+5),1
  7. 30    goto 10
  8.